home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / text printer / text printer.0829 / text printer.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  49.9 KB  |  102 lines
  1. 5 poke53281,0:poke53280,0:print"[147][159]"
  2. 10 poke55,.:poke56,64:clr
  3. 11 dv=peek(186):ifdv<8thendv=8
  4. 12 rem sys57812"input dir c400",dv,0:poke780,0:poke781,0:poke782,196:sys65493
  5. 16 rem sys57812"tp1990.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 18 rem sys57812"reader $c800",dv,0:poke780,0:poke781,0:poke782,200:sys65493
  7. 20 poke51253,dv
  8. 110 q$=chr$(34):c=54272
  9. 115 tp$="[147][150]    [212] [197] [216] [212]   [208] [210] [201] [206] [212] [197] [210]   1 9 9 3"
  10. 120 dim f$(297),pc%(46)
  11. 130 printtp$:printtab(10)"by the [204][207][193][196][211][212][193][210] [196]udes"
  12. 140 print"[159]  [201]nsert the disk with the "q$"t."q$" [159]files"
  13. 145 printtab(11)"and press [211][208][193][195][197][154]."
  14. 150 geta$:ifa$<>" "then150
  15. 160 printtp$:print"[159][210]eading all "q$"prg"q$" [159]files with "q$"t."q$" [159]names."
  16. 170 open15,dv,15:open2,dv,2,"t.*":close2:input#15,er,er$,a,a:close15
  17. 172 ifer=0then180
  18. 174 print"[159] [212]here are no "q$"t."q$" [159]files on this disk.":goto1990
  19. 180 sys50176,"$:t.*=p",dv,0
  20. 182 j=peek(251)+256*peek(252)
  21. 190 printtp$
  22. 230 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][145]"
  23. 231 printtab(20-(len(f$(0))/2)-1)"[179][129]"f$(0)"[158][171]"
  24. 232 fori=1toj
  25. 234 ifi/2<>int(i/2)thenprint"[158][221]  [154]"f$(i);:goto237
  26. 236 printtab(21)"[154]"f$(i)tab(38)"[158][221]"
  27. 237 next:ifi/2=int(i/2)thenprinttab(38)"[158][221]"
  28. 238 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  29. 240 k=1:i=1
  30. 245 poke214,21:print:print" [195][210][211][210] keys[159] select  [211][208][193][195][197] [159]toggle  [193] [159]all"
  31. 247 print" [208] [159]print highlighted files  [206][159] new disk"
  32. 248 print"    [214] [159]view pointed-at file   [209][159] quit"
  33. 250 poke214,k+2:print:ifi/2<>int(i/2)thenprinttab(2)"[153]>[145]":poke198,0
  34. 251 ifi/2=int(i/2)thenprinttab(20)"[153]>[145]":poke198,0
  35. 260 geta$:ifa$=""then260
  36. 261 printtab((1-1*(i/2<>int(1/2)))-18*(i/2=int(i/2)))" [145]"
  37. 263 ifa$="[145]"thenk=k-1:i=i-2:ifk<1thenk=int(j/2):i=2*k+(i/2<>int(i/2))
  38. 264 ifa$=""thenk=k+1:i=i+2:ifk>int(j/2)thenk=1:i=k-(i/2=int(i/2))
  39. 265 ifa$=""theni=i+1:ifi/2<>int(i/2)theni=i-2
  40. 266 ifa$="[157]"theni=i-1:ifi/2=int(i/2)theni=i+2
  41. 267 ifa$="q"then2000
  42. 268 ifa$="p"then300
  43. 269 ifa$="n"thenrun11
  44. 270 ifa$="v"andi<=jthensys51200,f$(i),"[212][197][216][212] [210][197][193][196][197][210]":goto250
  45. 271 ifa$<>"a"then280
  46. 272 print"":fori=1toj
  47. 273 ifpc%(i)=0andi/2<>int(i/2)thenprinttab(3)""f$(i)"[146]";:pc%(i)=1:goto279
  48. 275 ifpc%(i)=0andi/2=int(i/2)thenprinttab(21)""f$(i)"[146]":pc%(i)=1:goto279
  49. 276 ifpc%(i)andi/2<>int(i/2)thenprinttab(3)"[154]"f$(i);:pc%(i)=0:goto279
  50. 277 ifpc%(i)andi/2=int(i/2)thenprinttab(21)"[154]"f$(i):pc%(i)=0
  51. 278 ifpc%(i)thenprinttab(13)"[154]"f$(i):pc%(i)=0
  52. 279 next:goto240
  53. 280 ifa$<>" "then250
  54. 282 ifpc%(i)=0andi/2<>int(i/2)thenprinttab(3)""f$(i)"[146]";:pc%(i)=1:goto250
  55. 283 ifpc%(i)=0andi/2=int(i/2)thenprinttab(21)""f$(i)"[146]":pc%(i)=1:goto250
  56. 284 ifpc%(i)andi/2<>int(i/2)thenprinttab(3)"[154]"f$(i);:pc%(i)=0:goto250
  57. 285 ifpc%(i)andi/2=int(i/2)thenprinttab(21)"[154]"f$(i):pc%(i)=0:goto250
  58. 300 fori=1toj:ifpc%(i)theni=j:next:goto302
  59. 301 next:goto250
  60. 302 sys51200,"":gosub1000:sys51200,"":ifa$="4"then250
  61. 303 fori=22to24:poke781,i:sys59903:next
  62. 304 poke214,22:print:print"       [154]([208][154])ause   ([195][154])ontinue   ([211][154])top"
  63. 305 open4,4,7:fori=1toj:ifpc%(i)=0then380
  64. 310 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  65. 320 poke(peek(174)+256*peek(175)),0
  66. 335 print#4,f$(0);
  67. 340 iffl=1thensys49152,16384:goto360
  68. 345 iffl=2thensys49158,16384:goto360
  69. 350 iffl=3thensys49155,16384
  70. 360 print"[153]        [145]"
  71. 380 nexti:close4:goto2000
  72. 1000 print"[147][159]"tp$
  73. 1092 print"[155]    [205]ake sure your printer is on-line"
  74. 1094 print" and the print head is set to the top"
  75. 1096 print" of a page."
  76. 1100 print"  [159](1[159]) [211]ingle 38-character column with"
  77. 1105 print"      a left margin of 24."
  78. 1110 print"  [159](2[159]) [211]ingle 65-character column with"
  79. 1115 print"      a left margin of 10."
  80. 1120 print"  [159](3[159]) [212]wo 38-character columns with"
  81. 1125 print"      a left margin of 0."
  82. 1127 print"  [159](4[159]) [210]eturn to previous screen."
  83. 1130 print"[155]            [212]ake your pick."
  84. 1140 geta$:ifa$<"1"ora$>"4"then1140
  85. 1150 fl=val(a$)
  86. 1160 return
  87. 1990 fort=1to2000:next
  88. 2000 print"[147]"
  89. 2002 print"  [211][208][193][195][197][159]  do another disk"
  90. 2005 print"  [210][197][212][213][210][206][159] head back to [204][207][193][196][211][212][193][210] [194]riefs"
  91. 2010 poke198,.
  92. 2020 geta$:ifa$<>" "anda$<>chr$(13)then2020
  93. 2030 ifa$=" "thenpoke186,dv:run11
  94. 2040 goto40000
  95. 2055 next:print"[147]":end
  96. 10000 open15,8,15,"s0:text printer.b":close15:save"text printer.b",8:end
  97. 40000 a$="ls briefs":fori=8to9:close2:open2,i,2:close2:ifstthen40030
  98. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  99. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  100. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  101. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  102.